home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mquery / mform1.frm < prev    next >
Text File  |  1995-05-07  |  5KB  |  189 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00FF0000&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   " Visual Basic Ad-Hoc Query Sample"
  7.    ClientHeight    =   4920
  8.    ClientLeft      =   1755
  9.    ClientTop       =   2235
  10.    ClientWidth     =   8520
  11.    ClipControls    =   0   'False
  12.    ControlBox      =   0   'False
  13.    ForeColor       =   &H00FF0000&
  14.    Height          =   5325
  15.    Icon            =   MFORM1.FRX:0000
  16.    Left            =   1695
  17.    LinkTopic       =   "Form1"
  18.    MaxButton       =   0   'False
  19.    MinButton       =   0   'False
  20.    ScaleHeight     =   4920
  21.    ScaleWidth      =   8520
  22.    Top             =   1890
  23.    Width           =   8640
  24.    Begin PictureBox CMD1 
  25.       Height          =   480
  26.       Left            =   7725
  27.       ScaleHeight     =   450
  28.       ScaleWidth      =   1170
  29.       TabIndex        =   7
  30.       Top             =   4065
  31.       Width           =   1200
  32.    End
  33.    Begin CommandButton cmdExit 
  34.       Caption         =   "&Exit"
  35.       Height          =   375
  36.       Left            =   4440
  37.       TabIndex        =   2
  38.       Top             =   3960
  39.       Width           =   1335
  40.    End
  41.    Begin CommandButton cmdContinue 
  42.       Caption         =   "&Continue"
  43.       Height          =   375
  44.       Left            =   2355
  45.       TabIndex        =   1
  46.       Top             =   3975
  47.       Width           =   1335
  48.    End
  49.    Begin Label Label5 
  50.       Alignment       =   2  'Center
  51.       AutoSize        =   -1  'True
  52.       BackColor       =   &H00FF0000&
  53.       Caption         =   "(This sample uses NWIND.MDB for Stored Queries)"
  54.       ForeColor       =   &H00FFFFFF&
  55.       Height          =   195
  56.       Left            =   1875
  57.       TabIndex        =   6
  58.       Top             =   2925
  59.       Width           =   4395
  60.    End
  61.    Begin Label Label4 
  62.       Alignment       =   2  'Center
  63.       AutoSize        =   -1  'True
  64.       BackColor       =   &H00FF0000&
  65.       Caption         =   "Inner && Outer Joins and Column Order"
  66.       FontBold        =   -1  'True
  67.       FontItalic      =   0   'False
  68.       FontName        =   "MS Sans Serif"
  69.       FontSize        =   12
  70.       FontStrikethru  =   0   'False
  71.       FontUnderline   =   0   'False
  72.       ForeColor       =   &H00FFFFFF&
  73.       Height          =   300
  74.       Left            =   1830
  75.       TabIndex        =   5
  76.       Top             =   2505
  77.       Width           =   4635
  78.    End
  79.    Begin Label Label3 
  80.       Alignment       =   2  'Center
  81.       AutoSize        =   -1  'True
  82.       BackColor       =   &H00FF0000&
  83.       Caption         =   "Store/Load/Delete Queries && Exec SQL Statements"
  84.       FontBold        =   -1  'True
  85.       FontItalic      =   0   'False
  86.       FontName        =   "MS Sans Serif"
  87.       FontSize        =   12
  88.       FontStrikethru  =   0   'False
  89.       FontUnderline   =   0   'False
  90.       ForeColor       =   &H00FFFFFF&
  91.       Height          =   300
  92.       Left            =   1080
  93.       TabIndex        =   4
  94.       Top             =   2160
  95.       Width           =   6225
  96.    End
  97.    Begin Label Label2 
  98.       Alignment       =   2  'Center
  99.       BackColor       =   &H00FF0000&
  100.       Caption         =   "Extracted from Microsoft's Visdata by Robert E. Smythe"
  101.       FontBold        =   -1  'True
  102.       FontItalic      =   0   'False
  103.       FontName        =   "MS Sans Serif"
  104.       FontSize        =   13.5
  105.       FontStrikethru  =   0   'False
  106.       FontUnderline   =   0   'False
  107.       ForeColor       =   &H00FFFFFF&
  108.       Height          =   765
  109.       Left            =   645
  110.       TabIndex        =   3
  111.       Top             =   3375
  112.       Width           =   6945
  113.    End
  114.    Begin Label Label1 
  115.       Alignment       =   2  'Center
  116.       BackColor       =   &H00FF0000&
  117.       Caption         =   "MQUERY ENGINE FOR VISUAL BASIC Release 1.0  May 24, 1994"
  118.       FontBold        =   -1  'True
  119.       FontItalic      =   0   'False
  120.       FontName        =   "MS Sans Serif"
  121.       FontSize        =   24
  122.       FontStrikethru  =   0   'False
  123.       FontUnderline   =   0   'False
  124.       ForeColor       =   &H000000FF&
  125.       Height          =   1935
  126.       Left            =   1380
  127.       TabIndex        =   0
  128.       Top             =   240
  129.       Width           =   5655
  130.    End
  131. End
  132.  
  133. Sub cmdContinue_Click ()
  134.  
  135.    Dim Connect As String, DataBaseName As String
  136.  
  137.    On Error GoTo OpenError
  138.  
  139.          CMD1.Filter = "Access DBs (*.mdb)|*.mdb"
  140.  
  141.          CMD1.FilterIndex = 1
  142.          CMD1.Filename = gstDBName  '""
  143.          CMD1.CancelError = True
  144.          CMD1.Action = 1
  145.  
  146.        If CMD1.Filename <> "" Then
  147.          gstDBName = CMD1.Filename
  148.        Else
  149.          Exit Sub
  150.        End If
  151.        
  152.        Connect = ""
  153.        DataBaseName = gstDBName
  154.  
  155.  
  156.    Set gCurrentDB = OpenDatabase(DataBaseName, False, True, Connect)
  157.  
  158.    RefreshTables fQuery.cTableList, True
  159.  
  160.    
  161.    
  162.    GoTo OpenEnd
  163.  
  164. OpenError:
  165.    ResetMouse Me
  166.    'gfDBOpenFlag = False
  167.    gstDBName = ""
  168.    gstDataType = ""
  169.    If Err <> 32755 Then     'check for common dialog cancelled
  170.      ShowError
  171.    End If
  172.    Resume OpenEnd
  173.  
  174. OpenEnd:
  175. fQuery.Show
  176. Unload Me
  177. End Sub
  178.  
  179. Sub cmdExit_Click ()
  180. End
  181. End Sub
  182.  
  183. Sub Form_Load ()
  184.    form1.Left = (screen.Width - form1.Width) / 2
  185.    form1.Top = (screen.Height - form1.Height) / 2
  186.  
  187. End Sub
  188.  
  189.